﻿Imports iComm

Module MainConsole
    Private initService As InitService
    Sub main()
        initService = New InitService
        initService.initSetting()

        Do
            If initService.initRoot() Then

                Console.WriteLine(DateTime.Now.ToString() & "   監視を開始しました。")
            End If

            System.Threading.Thread.Sleep(Integer.Parse(InitSettings.Instance.SendMailInterval) * 1000 * 60)
        Loop Until 0 = 1


        Console.ReadLine()
    End Sub
End Module